home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d8
/
t3script.arc
/
TIME.SLT
< prev
next >
Wrap
Text File
|
1990-04-14
|
1KB
|
42 lines
/////////////////////////////////////////////////////////////////////////
// TIME.SLT - by Terry Robertson (October 1988) //
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
// //
// This script puts the current time in the bottom left hand corner //
// of the screen; in the "status bar" if you've got it set to row //
// 24. Unfortunately it doesn't update automatically - you will need //
// to run the script whenever you want the current time. //
// //
// This script is most useful when it is "attached" to a function //
// key. //
// //
/////////////////////////////////////////////////////////////////////////
str tm[16];
str tim[16] = "│";
str help[] = "│ HELP=F7 ";
Main()
{
int xpos, ypos;
time(curtime(), tm);
delchrs(tm, 5, 3);
strcat(tim, tm);
strcat(tim, help);
xpos = getx();
ypos = gety();
pstraxy(tim, 0, 24, 31);
gotoxy(xpos, ypos);
}